home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / storage / function / cdrom / setinfo.cmd < prev    next >
Encoding:
Text File  |  1994-05-05  |  2.4 KB  |  83 lines
  1. /* REXX COMMAND FILE THAT WILL SET THE SYSINFO FILES. */
  2.  
  3. call RxFuncAdd "SysLoadFuncs","RexxUtil","SysLoadFuncs"
  4. call SysLoadFuncs
  5.  
  6. IF ARG(1) <> 1 THEN
  7.     CALL SysCls
  8.  
  9. IF ARG(2) <>"" THEN
  10.     LineNum = ARG(2) + 2
  11. ELSE
  12.     LineNum = 2
  13.  
  14. pos = SysCurPos(LineNum,18)
  15. SAY "PLEASE ANSWER THE FOLLOWING QUESTIONS."
  16. LineNum = LineNum + 2
  17. pos = SysCurPos(LineNum,6)
  18. SAY "PLEASE ENTER IN THE DRIVE LETTER OF YOUR CDROM, FOLLOWED"
  19. LineNum = LineNum + 1
  20. pos = SysCurPos(LineNum,6)
  21. SAY "BY A COLON.  ex E:" 
  22. pos = SysCurPos(LineNum,25)
  23. PULL CDROMDRIVE
  24. LineNum = LineNum + 2
  25. pos = SysCurPos(LineNum,6)
  26. SAY "PLEASE ENTER THE NAME OF A DATA FILE ON THE CDROM DATA DISC."
  27. LineNum = LineNum + 1
  28. pos = SysCurPos(LineNum,6)
  29. SAY "THE FILE NEEDS TO BE AT LEAST 100,000 BYTES IN LENGTH."
  30. LineNum = LineNum + 1
  31. pos = SysCurPos(LineNum,6)
  32. SAY "PLEASE ENTER FILE NAME IN AS SHOWN BELOW."
  33. LineNum = LineNum + 2
  34. pos = SysCurPos(LineNum,6)
  35. SAY "EXAMPLE   \FILENAME  OR  \DIRECTORY\FILENAME"
  36. LineNum = LineNum + 2
  37. pos = SysCurPos(LineNum,6)
  38. SAY "PLEASE ENTER FILE NAME: " 
  39. pos = SysCurPos(LineNum,31)
  40. PARSE PULL "\"DIRECTORY"\"FILE
  41.  
  42. IF FILE = "" THEN
  43. DO
  44.     "@IF EXIST SYSINFO.TXT DEL SYSINFO.TXT"
  45.     N=LINEOUT(SYSINFO.TXT, "CD SET DEVICENAME="CDROMDRIVE)
  46.     N=LINEOUT(SYSINFO.TXT, "CD SET FILENAME="CDROMDRIVE"\\"DIRECTORY)
  47.     N=LINEOUT(SYSINFO.TXT)
  48.  
  49.     "@IF EXIST SYSINFO2.TXT DEL SYSINFO2.TXT"
  50.     N=LINEOUT(SYSINFO2.TXT, "CD1 SET DEVICENAME="CDROMDRIVE)
  51.     N=LINEOUT(SYSINFO2.TXT, "CD1 SET FILENAME="CDROMDRIVE"\\"DIRECTORY)
  52.     N=LINEOUT(SYSINFO2.TXT)
  53.  
  54.     "@IF EXIST SYSINFO3.TXT DEL SYSINFO3.TXT"
  55.     N=LINEOUT(SYSINFO3.TXT, "CD2 SET DEVICENAME="CDROMDRIVE)
  56.     N=LINEOUT(SYSINFO3.TXT, "CD2 SET FILENAME="CDROMDRIVE"\\"DIRECTORY)
  57.     N=LINEOUT(SYSINFO3.TXT)
  58. END
  59.  
  60. ELSE
  61. DO
  62.     "@IF EXIST SYSINFO.TXT DEL SYSINFO.TXT"
  63.     N=LINEOUT(SYSINFO.TXT, "CD SET DEVICENAME="CDROMDRIVE)
  64.     N=LINEOUT(SYSINFO.TXT, "CD SET FILENAME="CDROMDRIVE"\\"DIRECTORY"\\"FILE)
  65.     N=LINEOUT(SYSINFO.TXT)
  66.  
  67.     "@IF EXIST SYSINFO2.TXT DEL SYSINFO2.TXT"
  68.     N=LINEOUT(SYSINFO2.TXT, "CD1 SET DEVICENAME="CDROMDRIVE)
  69.     N=LINEOUT(SYSINFO2.TXT, "CD1 SET FILENAME="CDROMDRIVE"\" DIRECTORY"\\"FILE)
  70.     N=LINEOUT(SYSINFO2.TXT)
  71.  
  72.     "@IF EXIST SYSINFO3.TXT DEL SYSINFO3.TXT"
  73.     N=LINEOUT(SYSINFO3.TXT, "CD2 SET DEVICENAME="CDROMDRIVE)
  74.     N=LINEOUT(SYSINFO3.TXT, "CD2 SET FILENAME="CDROMDRIVE"\"DIRECTORY"\\"FILE)
  75.     N=LINEOUT(SYSINFO3.TXT)
  76. END    
  77.  
  78. call SysDropFuncs
  79. EXIT
  80. /*  DONE        */
  81.  
  82.  
  83.